﻿Public Class BewegungsboniTabellePanzer_1
    Inherits BewegungsboniTabelle
    Public Overrides Function GetWert(ByVal Name As String) As Integer
        Dim E As ObjektEinheit = GetUnit(Name)
        If E.MinimaleReichweite = 1 And E.MaximaleReichweite = 1 Then
            If E.Bewegungsart.ToUpper = MovementSorts.Ketten.ToString.ToUpper Then
                Return 1
            ElseIf E.Bewegungsart.ToUpper = MovementSorts.Reifen.ToString.ToUpper Then
                Return 1
            ElseIf E.Bewegungsart.ToUpper = MovementSorts.Schneeketten.ToString.ToUpper Then
                Return 1
            ElseIf E.Bewegungsart.ToUpper = MovementSorts.Wüstenketten.ToString.ToUpper Then
                Return 1
            Else
                Return 0
            End If
        Else
            Return 0
        End If
    End Function
End Class

